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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-* 

*?* ® 
-* ® 
-* ® 
-* * 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
3s ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE — * 
Se INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
fe OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE. SOFTWARE 1S HERESY 
:® TRANSFERRED. * 
-* « 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. * 
** 7 
*@ * 
-* ® 
** ® 
-?* ® 
** ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: RMS 
Abstract: 

This module contains MACRO definitions used by RMS network modules. 
Environment: VAX/VMS, executive mode 


Author: James A. Krycka, Creation Date: 17-MAY-1978 
Modified By: 
V02-004 REFORMAT J A Krycka 26-JUL-1980 
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:SSETBIT sets a single bit in a field. 
pnapne SSETBIT POS,BASE,?01SPL 


POS ,BASE ,DISPL 
.ENDM $SETBIT 


DISPL: 


soe 
; SCLRBIT clears a single bit in a field. 


-MACRO $CLRBIT POS BASE. ?D1 SPL 
BBCC POS ,BASE ,DISPL 


-ENDM S$CLRBIT 


DISPL: 


3++ 
; SMAPBIT maps the designated bit from R1 into the designated bit in R2. 
; The bit is set in R2 only if the corresponding bit is set in R1. 


CBIT,OSTBIT,?LABEL 


IT SR 
BB #SRCBIT,R1, LABEL 
BBCS #DSTBIT.R2.LABEL 
LABEL: 
.ENDM  $MAPBIT 


pe+ 

; SZERO_FILL writes zeroes into the specified buffer. On completion RO-R5 are 
; destroyed (with R3 containing the address of one byte beyond the buffer). 

; The default is to zero 512 bytes (1 page) at the specified address. 


.MACRO $ZERO_FILL DST=,SIZE=#512 
MOVCS #0,DST,#0,SIZE,DST 
.ENDM = $ZERO_FILL 


oa 
SCASEB, SCASEW, and S$CASEL porerere a CASEB, CASEW, CASEL instruction, 
respectively. followed by the case displacement table. The parameters for 
each macro are: 

SELECTOR = the selector operand 

ASE = the base operand J : 
(The Limit operand is calculated from the # of entries in DISPL.) 
DISPL = the case displacement List 


Note that these macro definitions place BASE after SELECTOR and DISPL so that 
BASE can be omitted when keywords are not used in the macro invocation. 


«MACRO $CASEB SELECTOR,D!SPL,BASE=#0 
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SCASE SELECTOR, <DISPL>, BASE, TYPE=B 

.ENDM $C ASEB 

.MACRO $SCASEW SELECTOR,DISPL,BASE=#0 

$CASE SELECTOR, <DISPL>.BASE, TYPE=W 

.ENDM = $CASEW 

.MACRO SCASEL SELECTOR,DISPL,BASE=#0 

SCASE SELECTOR,<DISPL>.BASE, TYPE=L 

.ENDM = S$CASEL 
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++ 

SCASE is a level 2 macro used by S$CASEB, SCASEW, and SCASEL. It generates a 
CASECB/W/L] instruction followed by the case displacement table. The 
parameters for this macro are: 


TYPE = a datatype of b, w. or lL 

SELECTOR = the selector operand 

BASE = the base operand eee 

(The Limit operand is calculated from the # of entries in DISPL.) 
DISPL = the case displacement List 


Note that the macro definition places SELECTOR and DISPL ahead of BASE and 
TYPE so that the latter can be omitted when keywords are not used in the 
macro invocation. 


MACRO. S$CASE SELECTOR,DISPL,BASE=40,TYPE=B,?TABLE 
$S$COUNT=0 


. IRP EP,<DISPL> 

XC "+ anita 

IF EQ,$$COUNT 
RR 


-ERROR ; **##* case displacement List is null **t#* ; 
-MEXIT 


-EWDC 

CASE * TYPE SELECTOR ,BASE ,#<$$COUNT-1> 
- IRP EP,<DISPL> 

-WORD EP-TABLE 

-ENDR 

-ENDM $CASE 


END ; End of module 
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